--^T+I Number input*
--Opens a dialog into which you can enter a numeric value.
	-- variable s is of type string
	-- variable number is of type integer
	repeat
		s := prompt("Enter a number:");
		number := str_to_num(s);
	until number /= 0 or s = "0";